home *** CD-ROM | disk | FTP | other *** search
/ PC World 2005 April / PCWorld_2005-04_cd.bin / software / temacd / godfather / TGF_069.exe / $INSTDIR / Scripts / 02 Split Title to Artist - Title.sct < prev    next >
Encoding:
Text File  |  2005-02-06  |  393 b   |  26 lines
  1. program test;
  2.  
  3. var
  4.   sTmp: string;
  5.   iPos: integer;
  6.  
  7. begin
  8.  
  9.   if not tg_Init then exit;
  10.  
  11.   repeat
  12.  
  13.     sTmp := tg_GetField( 'Title' );
  14.     iPos := Pos( '-', sTmp );
  15.  
  16.     if iPos > 0 then begin
  17.        tg_SetField( 'Artist', Trim( Copy( sTmp, 1, iPos - 1 ) ) );
  18.        tg_SetField( 'Title', Trim( Copy( sTmp, iPos + 1, 9999 ) ) );
  19.     end;
  20.  
  21.   until not tg_Skip;
  22.  
  23.  
  24. end.
  25.  
  26.